home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / cdity / ModeProSrc.lha / Install-Dev / OldInstall / Español next >
Text File  |  1998-08-16  |  7KB  |  192 lines
  1.  
  2. ; Guión instalador para ModePro
  3.  
  4. ; Spanish translation by
  5. ; Dámaso D. Estévez <amidde@arrakis.es> - Spanish freelance translator
  6.  
  7. ( set ModePro "ModePro")
  8. ( set ModeProPrefs "ModeProPrefs" )
  9.  
  10. ;-------------------------------------------------------------
  11. ( set Yes "Sí")
  12. ( set No  "No")
  13.  
  14. (set startup_prompt   "¿Quiere ejecutar automáticamente ModePro al arrancar su equipo?")
  15. (set startup_choice0  "No, no quiero ejecutarlo")
  16. (set startup_choice1  "Sí, desde el fichero User-Startup")
  17. (set startup_choice2  "Sí, desde el cajón WBStartup")
  18. (set startup_help     (cat "\nEligiendo 'No, no quiero ejecutarlo' hará que ModePro no se ejecute durante el arranque del sistema.\n\n" "Eligiendo 'Sí, desde el fichero User-Startup' se añadirá una entrada en el fichero S:User-Startup que se encargará de ejecutar ModePro.\n\n" "Seleccionando 'Sí, desde el cajón WBStartup', ModePro será copiado en el cajón WBStartup de su disco de arranque.\n\n" "La única diferencia entre las dos últimas opciones es que si quiere que ModePro pueda afectar a la pantalla del Workbench, deberá seleccionar 'Sí, desde el fichero User-Startup'"))
  19.  
  20. (set path_wbstartup       ( expandpath "Sys:WBStartup") )
  21. (set path_commodities     ( expandpath "Sys:Tools/Commodities") )
  22. (set path_prefs           ( expandpath "Sys:Prefs") )
  23. (set path_modepro         path_commodities)
  24. (set path_modepro_prompt  ("Por favor, elija dónde desea instalar ModePro\n('%s' es el lugar normal)" path_commodities))
  25. (set path_modepro_help    "\nÉste es el directorio donde el ejecutable ModePro será instalado.")
  26. (set path_mpprefs_prompt  ("Por favor, elija dónde desea instalar ModeProPrefs'\n('%s' es el lugar normal)" path_prefs))
  27. (set path_mpprefs_help    "\nÉste es el directorio donde el ejecutable ModeProPrefs será instalado.")
  28.  
  29. ( set oldmodepro_prompt   "Parece que otra copia de ModePro está instalada.\n¿Desea borrarla?" )
  30. ( set oldmodepro_help     "\nParece que una copia innecesaria de ModePro está instalada: se recomienda su borrado." )
  31. ( set oldmodepro_deleting "Borrando copia extra y fichero .info" )
  32.  
  33. ( set tt_cxpopkey_prompt    "Introduzca la combinación de teclas que hará aparecer al programa de preferencias." )
  34. ( set tt_cxpri_prompt       "Introduzca el valor de la prioridad de la comodidad ModePro." )
  35. ( set tt_cxpopup_prompt     "¿Desea que ModePro muestre su interfaz cada vez que es puesto en marcha?")
  36. ( set tt_cx_help            "Por favor, consulte en el manual del Workbench ,la sección sobre 'Commodities'/'Comodidades' para más información." )
  37. ( set tt_wbpromote_prompt   "¿Desea ser capaz de promocionar la pantalla del Workbench?\nRecomiendo que elija la opción NO, pues promocionar dicha pantalla ¡puede ser peligroso!" )
  38. ( set tt_wbpromote_help     "Elija NO.\nEsta opción le permite promocionar la pantalla del Workbench... sin embargo, el SO podría bloquearse con algunas configuraciones." )
  39.  
  40. (set installing_modepro       "Instalando ModePro")
  41. (set installing_modeproprefs  "Instalando ModeProPrefs")
  42.  
  43. (set usmodify_prompt  "Las opciones elegidas requieren que el fichero 's:user-startup' sea modificado." )
  44. (set usmodify_help    "\nSi se salta este paso, ModePro podría no funcionar correctamente." )
  45.  
  46. (set copycat_prompt   "ModePro ha sido traducido a varios idiomas.\nAgradezco a la ATO que me haya suministrado la mayoría de las traducciones.")
  47. (set copycat_help     "\nDebe seleccionar sólo aquellos catálogos que necesite.")
  48.  
  49. ;-------- BEGIN ----------
  50.  
  51. (set startup_method (askchoice (prompt  startup_prompt)
  52.                                (help    startup_help)
  53.                                (choices startup_choice0 startup_choice1 startup_choice2)
  54.                                (default 2)
  55. )                   )
  56.  
  57.  
  58.  
  59. (if (= startup_method 2) 
  60.   (
  61.     ( set path_delmodepro path_commodities)
  62.     ( set path_modepro    path_wbstartup)
  63.   )
  64.   (
  65.     ( set path_delmodepro path_wbstartup)
  66.     ( set path_modepro (askdir (prompt  path_modepro_prompt)
  67.                                (help    path_modepro_help)
  68.                                (default path_commodities)
  69.     )                  )
  70.   )
  71. )
  72.  
  73. ( set path_mpprefs (askdir (prompt  path_mpprefs_prompt)
  74.                            (help    path_mpprefs_help)
  75.                            (default path_prefs)
  76. )                  )
  77.  
  78.  
  79.  
  80. ( set ModeProPrefsCommand (tackon ( path_mpprefs) 
  81.                                    ( "ModeProPrefs") 
  82.                           ) 
  83. )
  84.  
  85. ( set tt_cxpopkey ( askstring (prompt tt_cxpopkey_prompt)
  86.                               (help tt_cxhelp)
  87.                               (default "lamiga p")
  88.                
  89. )                 )
  90.  
  91. ( set tt_cxpri ("%ld" (asknumber (prompt tt_cxpri_prompt)
  92.                                  (help tt_cxhelp)
  93.                                  (default 5)
  94. )              )      ) 
  95.  
  96. ( set tt_cxpopup (askchoice (prompt tt_cxpopup_prompt) 
  97.                             (help tt_cxhelp)
  98.                             (default 0)
  99.                             (choices No Yes) 
  100. )             )
  101.  
  102. ( set tt_wbpromote (askchoice (prompt tt_wbpromote_prompt) 
  103.                             (help tt_wbpromote_help)
  104.                             (default 0) 
  105.                             (choices No Yes) 
  106. )             )
  107.  
  108. ( set tt_wbpromotable (select tt_wbpromote "(WBPROMOTABLE)" "WBPROMOTABLE") )
  109.  
  110.  
  111. ;**** COPY THE CATALOGS ****
  112. (copyfiles (prompt  copycat_prompt)
  113.            (help    copycat_help)
  114.            (source  "catalogs/")
  115.            (dest    "locale:catalogs/")
  116.            (infos)
  117.            (confirm)
  118.            (all)
  119. )
  120.  
  121. ;**** DELETE THE ANY EXTRA COPY OF MODEPRO ****
  122.  
  123. (set oldmodepro_file ( tackon (path_delmodepro) 
  124.                      ("ModePro")
  125. )          )
  126.  
  127. (if (exists oldmodepro_file)
  128.   (
  129.     (if (askchoice (prompt  oldmodepro_prompt ) 
  130.                    (help    oldmodepro_help) 
  131.                    (default 1) 
  132.                    (choices No Yes) 
  133.         )
  134.       (
  135.         (delete oldmodepro_file (prompt oldmodepro_deleting))
  136.         (delete (cat (oldmodepro_file) (".info") ) (prompt oldmodepro_deleting) )
  137.       )
  138.     ) 
  139.   )
  140. )
  141.  
  142. ;**** SET THE TOOLTYPES ****
  143.  
  144. (tooltype (dest ModePro)
  145.           (settooltype "CX_POPKEY"    tt_cxpopkey)
  146.           (settooltype "CX_POPUP"     (select tt_cxpopup No Yes) )
  147.           (settooltype "CX_PRIORITY"  tt_cxpri )
  148.           (settooltype "PREFSCOMMAND" ModeProPrefsCommand)
  149.           (settooltype tt_wbpromotable "")
  150. )
  151.  
  152.  
  153. ;**** COPY FILES ****
  154.     
  155. (copyfiles (prompt installing_modepro)
  156.            (help   installing_modepro)
  157.            (source ModePro)
  158.            (infos)
  159.            (dest path_modepro)
  160. )
  161.  
  162. (set @default-dest path_modepro)
  163.  
  164. (copyfiles (prompt installing_modeproprefs)
  165.            (help   installing_modeproprefs)
  166.            (source ModeProPrefs)
  167.            (infos)
  168.            (dest path_mpprefs)
  169. )
  170.  
  171.  
  172. ;**** PROMPT TO MODIFY THE U-S FILE ****
  173. (if (= startup_method 1)
  174.     ( 
  175.         (startup "ModePro"
  176.                  (prompt  usmodify_prompt )
  177.                  (help    usmodify_help )
  178.                  (command (cat "Run <>NIL: " (tackon path_modepro "ModePro")) )
  179.         )
  180.     )
  181.     (
  182.        (startup "ModePro"
  183.                  (prompt  usmodify_prompt )
  184.                  (help    usmodify_help )
  185.                  (command ";Don't run ModePro from User-Startup")
  186.   
  187.         )
  188.     )
  189. )
  190.  
  191.  
  192.